BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Hyper/K-L/LetterWriter 1.12.cpt/LetterWriter 1.12/background_2710.txt

Text File | 1990-02-25 | 7KB | 320 lines

-- background: 2710 from stack: in.12
-- bmap block id: 11800
-- flags: 4000
-- background id: 0
-- name: Letters
----- HyperTalk script -----
on newCard
  put the short date into field "Received"
  put "Personal" into field "Type"
end newCard



-- part 11 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=63 top=43 right=59 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: From


-- part 12 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=63 top=78 right=94 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Received


-- part 13 (field)
-- low flags: 00
-- high flags: 0004
-- rect: left=133 top=78 right=94 bottom=200
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Sent


-- part 14 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=277 top=43 right=92 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Notes


-- part 15 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=63 top=115 right=320 bottom=493
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Letter


-- part 16 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=77 right=121 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 3430 / 3430
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New
----- HyperTalk script -----
on mouseUp
  visual dissolve to gray
  visual dissolve
  doMenu "New Card"
end mouseUp



-- part 17 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=129 right=173 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 1005 / 1005
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: To WP
----- HyperTalk script -----
on mouseUp
  if field "Letter" is not empty then
    global WP , CL , BC
    answer "Format letter and go to word processor?" with "Cancel" or "OK"
    if it is "OK" then
      put the date into field "Sent"
      set lockScreen to true
      put field "Letter" into temp
      if field "Type" is "Personal" then
        put "Shareware $15" & return & the long date & return & "Dear" && word 1 of field "From" & ":" & return before field "Letter"
        put return & CL after field "Letter"
      else
        put "Shareware $15" & return & the long date & return & field "From" & return & "Company" & return & "Street" & return & "Address" & return & "Dear" && field "From" & return before field "Letter"
        put return & BC after field "Letter"
      end if
      type tab
      type tab with shiftKey
      doMenu "Copy Text"
      put temp into field "Letter"
      go to card "Title"
      answer "Remember to “Paste” in your word processor."
      open WP
      set lockscreen to false
    end if
  else
    answer "You haven’t written this letter yet!"
  end if
end mouseUp




-- part 18 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=181 right=225 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 8538 / 8538
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Find
----- HyperTalk script -----
on mouseUp
  ask "What would you like to find?"
  find it
end mouseUp



-- part 20 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=233 right=277 bottom=50
-- title width / last selected line: 0
-- icon id / first selected line: 20186 / 20186
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Setup
----- HyperTalk script -----
on mouseUp
  answer "Sort by:" with "Name" or "Received" or "Sent"
  set lockScreen to true
  if it is "Name" then
    sort text by field "From"
  end if
  if it is "Received" then
    sort dateTime by field "Received"
  end if
  if it is "Sent" then
    sort dateTime by field "Sent"
  end if
  go first card of background Letters
  set lockScreen to false
end mouseUp



-- part 21 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=25 right=69 bottom=28
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual scroll right to gray
  visual scroll right
  go previous card of background Letters
end mouseUp



-- part 22 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=29 top=26 right=69 bottom=48
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual scroll left to gray
  visual scroll left
  go next card of background Letters
end mouseUp



-- part 23 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=29 top=285 right=330 bottom=49
-- title width / last selected line: 0
-- icon id / first selected line: 16692 / 16692
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual scroll down to gray
  visual scroll down
  go to card "Title"
end mouseUp



-- part 24 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=6 top=285 right=329 bottom=29
-- title width / last selected line: 0
-- icon id / first selected line: 26635 / 26635
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  push card
  visual effect venetian blinds to gray
  visual effect venetian blinds
  go to card LHelp
end mouseUp


-- part 25 (field)
-- low flags: 01
-- high flags: 0004
-- rect: left=203 top=78 right=94 bottom=270
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 256
-- line height: 12
-- part name: Type


-- part 26 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=204 top=79 right=91 bottom=267
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name:
----- HyperTalk script -----
on mouseUp
  if field "Type" is "Personal" then
    put "Business" into field "Type"
  else
    put "Personal" into field "Type"
  end if
end mouseUp